home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / PROGMISC / FORTRAN1.LZH / GETIME.FOR < prev    next >
Text File  |  1988-02-08  |  355b  |  17 lines
  1.       SUBROUTINE GETIME(TOTAL,DELTA)
  2. C*
  3. C*  GETIME - EXTRACT TOTAL CPU TIME (SINCE CALL TO SETIME)
  4. C*           AND DELTA CPU TIME(SINCE LAST CALL TO GETIME)
  5. C*
  6.       SAVE OLD
  7. C
  8.       STATUS = LIB$STAT_TIMER(2,ITIME,)
  9.       TOTAL  = 0.01*FLOAT(ITIME)
  10.       DELTA  = TOTAL-OLD
  11.       OLD    = TOTAL
  12.       RETURN
  13.       END
  14. C
  15. C---END GETIME
  16. C
  17.